1 Imports System.Data.SqlClient
2 Public Class frmLogin
3 Dim frm As New frmMainMenu
4
5 Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
6 If Len(Trim(UserID.Text)) = 0 Then
7 MessageBox.Show("Please enter user id", "", MessageBoxButtons.OK, MessageBoxIcon.Warning)
8 UserID.Focus()
9 Exit Sub
10 End If
11 If Len(Trim(Password.Text)) = 0 Then
12 MessageBox.Show("Please enter password", "", MessageBoxButtons.OK, MessageBoxIcon.Warning)
13 Password.Focus()
14 Exit Sub
15 End If
16 Try
17 con = New SqlConnection(cs)
18 con.Open()
19 cmd = con.CreateCommand()
20 cmd.CommandText = "SELECT RTRIM(UserID),RTRIM(Password) FROM Registration where UserID = @d1 and Password=@d2 and Active='Yes'"
21 cmd.Parameters.AddWithValue("@d1", UserID.Text)
22 cmd.Parameters.AddWithValue("@d2", Encrypt(Password.Text))
23 rdr = cmd.ExecuteReader()
24 If rdr.Read() Then
25 con = New SqlConnection(cs)
26 con.Open()
27 cmd = con.CreateCommand()
28 cmd.CommandText = "SELECT usertype FROM Registration where UserID=@d3 and Password=@d4"
29 cmd.Parameters.AddWithValue("@d3", UserID.Text)
30 cmd.Parameters.AddWithValue("@d4", Encrypt(Password.Text))
31 rdr = cmd.ExecuteReader()
32 If rdr.Read() Then
33 UserType.Text = rdr.GetValue(0).ToString.Trim
34 End If
35 If (rdr IsNot Nothing) Then
36 rdr.Close()
37 End If
38 If con.State = ConnectionState.Open Then
39 con.Close()
40 End If
41 If UserType.Text = "Admin" Then
42 frm.MasterEntryToolStripMenuItem.Enabled = True
43 frm.RegistrationToolStripMenuItem.Enabled = True
44 frm.LogsToolStripMenuItem.Enabled = True
45 frm.DatabaseToolStripMenuItem.Enabled = True
46 frm.CustomerToolStripMenuItem.Enabled = True
47 frm.SupplierToolStripMenuItem.Enabled = True
48 frm.ProductToolStripMenuItem.Enabled = True
49 frm.StockToolStripMenuItem.Enabled = True
50 frm.ServiceToolStripMenuItem.Enabled = True
51 frm.StockInToolStripMenuItem.Enabled = True
52 frm.BillingToolStripMenuItem.Enabled = True
53 frm.QuotationToolStripMenuItem.Enabled = True
54 frm.RecordToolStripMenuItem.Enabled = True
55 frm.ReportsToolStripMenuItem.Enabled = True
56 frm.VoucherToolStripMenuItem.Enabled = True
57 frm.lblUser.Text = UserID.Text
58 frm.lblUserType.Text = UserType.Text
59 Dim st As String = "Successfully logged in"
60 LogFunc(UserID.Text, st)
61 Me.Hide()
62 frm.Show()
63 End If
64 If UserType.Text = "Sales Person" Then
65 frm.MasterEntryToolStripMenuItem.Enabled = False
66 frm.RegistrationToolStripMenuItem.Enabled = False
67 frm.LogsToolStripMenuItem.Enabled = False
68 frm.DatabaseToolStripMenuItem.Enabled = False
69 frm.CustomerToolStripMenuItem.Enabled = True
70 frm.SupplierToolStripMenuItem.Enabled = False
71 frm.ProductToolStripMenuItem.Enabled = False
72 frm.StockToolStripMenuItem.Enabled = False
73 frm.ServiceToolStripMenuItem.Enabled = True
74 frm.StockInToolStripMenuItem.Enabled = True
75 frm.BillingToolStripMenuItem.Enabled = True
76 frm.QuotationToolStripMenuItem.Enabled = True
77 frm.RecordToolStripMenuItem.Enabled = False
78 frm.ReportsToolStripMenuItem.Enabled = False
79 frm.VoucherToolStripMenuItem.Enabled = False
80 frm.lblUser.Text = UserID.Text
81 frm.lblUserType.Text = UserType.Text
82 Dim st As String = "Successfully logged in"
83 LogFunc(UserID.Text, st)
84 Me.Hide()
85 frm.Show()
86 End If
87 If UserType.Text = "Inventory Manager" Then
88 frm.MasterEntryToolStripMenuItem.Enabled = False
89 frm.RegistrationToolStripMenuItem.Enabled = False
90 frm.LogsToolStripMenuItem.Enabled = False
91 frm.DatabaseToolStripMenuItem.Enabled = False
92 frm.CustomerToolStripMenuItem.Enabled = False
93 frm.SupplierToolStripMenuItem.Enabled = False
94 frm.ProductToolStripMenuItem.Enabled = True
95 frm.StockToolStripMenuItem.Enabled = True
96 frm.ServiceToolStripMenuItem.Enabled = False
97 frm.StockInToolStripMenuItem.Enabled = True
98 frm.BillingToolStripMenuItem.Enabled = False
99 frm.QuotationToolStripMenuItem.Enabled = False
100 frm.RecordToolStripMenuItem.Enabled = False
101 frm.ReportsToolStripMenuItem.Enabled = False
102 frm.VoucherToolStripMenuItem.Enabled = False
103 frm.lblUser.Text = UserID.Text
104 frm.lblUserType.Text = UserType.Text
105 Dim st As String = "Successfully logged in"
106 LogFunc(UserID.Text, st)
107 Me.Hide()
108 frm.Show()
109 End If
110 Else
111 MsgBox("Login is Failed...Try again !", MsgBoxStyle.Critical, "Login Denied")
112 UserID.Text = ""
113 Password.Text = ""
114 UserID.Focus()
115 End If
116 cmd.Dispose()
117 con.Close()
118 Catch ex As Exception
119 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
120 End Try
121 End Sub
122
123 Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
124 End
125 End Sub
126
127 Private Sub LinkLabel2_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
128 Me.Hide()
129 frmChangePassword.Show()
130 frmChangePassword.UserID.Text = ""
131 frmChangePassword.OldPassword.Text = ""
132 frmChangePassword.NewPassword.Text = ""
133 frmChangePassword.ConfirmPassword.Text = ""
134 frmChangePassword.UserID.Focus()
135 End Sub
136
137 Private Sub LoginForm1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
138
139 End Sub
140
141 Private Sub frmLogin_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
142 End
143 End Sub
144 End Class
